5 REM--AHOY--MAR ISSUE--DYNAMIC POWER---PROG PAGE 47
10 PRINTCHR$(147)"ENTER STARTING,ENDING LINE NUMBER:"
20 INPUTS,E
30 IFS>60000ORE>60000ORE<SORS<0ORE<0THEN10
40 INPUT"INCREMENT LINES BY";IN
50 X=S
60 PRINTCHR$(147)X;"DATA";:I$=""
70 GETA$:IFA$=""THENPRINT"$[157]";:GOTO70
75 IFLEN(I$)>65ANDA$<>CHR$(13)ANDA$<>CHR$(20)THEN70
80 IFA$=CHR$(20)ANDLEN(I$)=0THEN70
90 PRINTA$;
100 IFA$=CHR$(20)THENI$=LEFT$(I$,LEN(I$)-1):GOTO70
110 IFA$=CHR$(13)THEN130
120 I$=I$+A$:GOTO70
130 PRINT"X=";X;":IN=";IN;":E=";E:PRINT"GOTO150"
140 POKE631,19:POKE632,13:POKE633,13:POKE634,145:POKE635,145:POKE636,13
145 POKE198,6:END
150 X=X+IN:IFX>ETHENEND
160 GOTO60